home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
ccdl150l.zip
/
COMPLIB
/
68K
/
68MULU.SRC
< prev
next >
Wrap
Text File
|
1996-12-14
|
483b
|
27 lines
section code
XDEF __mulu,llumul
__mulu:
move (8,A7),D0
move (4,A7),D1
llumul:
movem.l d5-d7,-(a7)
clr.l d2
move.w d0,d2
lsr.l #8,d0
lsr.l #8,d0
move.w d0,d5 ;D5:D2
clr.l d6
move.w d1,d6
lsr.l #8,d1
lsr.l #8,d1
move.w d1,d7 ;D7:D6
move.w d2,d0
mulu.w d6,d0 ;D0= D2*D6
mulu.w d7,d2 ;D2= D2*D7
mulu.w d6,d5 ;D5= D6*D5
add.w d5,d2 ;D6*D5+D2*D7
lsl.l #8,d2 ; << 16
lsl.l #8,d2 ;
add.l D2,d0 ;+D2*D6
movem.l (a7)+,d5-d7
rts